workDialog <- function(){
	initializeDialog(title = gettext("Datos hipertension"))
	onOK <- function() {
		doItAndPrint("data(hipertension, package=\"RcmdrPlugin.TeachingExtras\")")
		justDoIt(paste("set.seed(", tclvalue(dni), ")"))
		justDoIt("
			hipertension$EDAD <- hipertension$EDAD + round(runif(n,-3,3));
			hipertension$ALTURA <- hipertension$ALTURA + round(runif(n,-3,3));
			hipertension$PESO <- hipertension$PESO + round(runif(n,-3,3));
			hipertension$ESTRES <- hipertension$ESTRES + round(runif(n,-2,2));
			hipertension$PAD_INI <- hipertension$PAD_INI + round(runif(n,-3,3));
			hipertension$PAD_FIN <- hipertension$PAD_FIN + round(runif(n,-3,3));
			hipertension$PAS_INI <- hipertension$PAS_INI + round(runif(n,-3,3));
			hipertension$PAS_FIN <- hipertension$PAS_FIN + round(runif(n,-3,3))"
		)
		closeDialog()
		tkfocus(CommanderWindow())
	}
	
	OKCancelHelp(helpSubject = "hipertension")
	dniFrame <- tkframe(top)
	dni <- tclVar("")
	dniField <- tkentry(dniFrame, width = "10", textvariable = dni)
	tkgrid(labelRcmdr(dniFrame, text=gettext("Introduce el DNI sin letra: ")),dniField, sticky = "w")
	tkgrid(dniFrame, sticky="w")
	tkgrid(buttonsFrame, sticky = "w")
	dialogSuffix(rows = 2, columns = 1)
}